object frmAlterarPrecosProduto: TfrmAlterarPrecosProduto
  Left = 432
  Top = 278
  BorderStyle = bsSingle
  Caption = 'Altera'#231#227'o de Pre'#231'os por Produto'
  ClientHeight = 275
  ClientWidth = 458
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlDados: TPanel
    Left = 0
    Top = 41
    Width = 458
    Height = 193
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Label10: TLabel
      Left = 8
      Top = 48
      Width = 88
      Height = 13
      Caption = 'C'#243'digo do Produto'
    end
    object Label1: TLabel
      Left = 8
      Top = 136
      Width = 104
      Height = 13
      Caption = 'Pre'#231'o de Venda Atual'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 88
      Width = 30
      Height = 13
      Caption = 'Marca'
    end
    object Label3: TLabel
      Left = 256
      Top = 88
      Width = 52
      Height = 13
      Caption = 'Refer'#234'ncia'
    end
    object Label4: TLabel
      Left = 128
      Top = 136
      Width = 57
      Height = 13
      Caption = 'Novo Pre'#231'o'
    end
    object Label5: TLabel
      Left = 8
      Top = 8
      Width = 41
      Height = 13
      Caption = 'Empresa'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 148
      Top = 48
      Width = 103
      Height = 13
      Caption = 'Descri'#231#227'o do Produto'
    end
    object Label7: TLabel
      Left = 256
      Top = 136
      Width = 39
      Height = 13
      Caption = 'Usu'#225'rio:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbUsuario: TLabel
      Left = 257
      Top = 160
      Width = 200
      Height = 13
      AutoSize = False
      Caption = 'C'#243'digo e Nome do Usu'#225'rio'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object edtCodProduto: TEdit
      Left = 8
      Top = 64
      Width = 115
      Height = 21
      Hint = 'C'#243'digo do produto'
      CharCase = ecUpperCase
      Enabled = False
      MaxLength = 20
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnExit = edtCodProdutoExit
      OnKeyPress = KeyPress_SomenteInteiro
    end
    object btnConProduto: TBitBtn
      Left = 124
      Top = 64
      Width = 24
      Height = 21
      Hint = 'Buscar produto'
      Caption = '...'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = btnConProdutoClick
    end
    object stFantasiaEmpresa: TStaticText
      Left = 83
      Top = 24
      Width = 368
      Height = 22
      AutoSize = False
      BorderStyle = sbsSingle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object stPrecoAtual: TStaticText
      Left = 8
      Top = 152
      Width = 113
      Height = 22
      AutoSize = False
      BorderStyle = sbsSingle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object stDscMarca: TStaticText
      Left = 8
      Top = 104
      Width = 241
      Height = 22
      AutoSize = False
      BorderStyle = sbsSingle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object stDscReferencia: TStaticText
      Left = 256
      Top = 104
      Width = 193
      Height = 22
      AutoSize = False
      BorderStyle = sbsSingle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object edtCodEmpresa: TEdit
      Left = 8
      Top = 24
      Width = 49
      Height = 21
      Hint = 'C'#243'digo da empresa'
      MaxLength = 20
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnExit = edtCodEmpresaExit
      OnKeyPress = KeyPress_SomenteInteiro
    end
    object btnConEmpresa: TBitBtn
      Left = 58
      Top = 24
      Width = 24
      Height = 21
      Hint = 'Buscar empresa'
      Caption = '...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnConEmpresaClick
    end
    object stDscProduto: TStaticText
      Left = 148
      Top = 64
      Width = 302
      Height = 22
      AutoSize = False
      BorderStyle = sbsSingle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object edtNovoPreco: TEdit
      Left = 128
      Top = 152
      Width = 121
      Height = 21
      Hint = 'Novo pre'#231'o do produto'
      BiDiMode = bdLeftToRight
      Enabled = False
      ParentBiDiMode = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnExit = edtNovoPrecoExit
    end
  end
  object pnlBotoes: TPanel
    Left = 0
    Top = 234
    Width = 458
    Height = 41
    Align = alBottom
    TabOrder = 1
    object btnGravar: TBitBtn
      Left = 104
      Top = 7
      Width = 89
      Height = 26
      Hint = ' Confirma Inclus'#227'o/Altera'#231#227'o do Registro '
      Caption = '&Gravar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnGravarClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
    object btnVoltar: TBitBtn
      Left = 192
      Top = 7
      Width = 89
      Height = 26
      Hint = ' Cancela Inclus'#227'o/Altera'#231#227'o do Registro '
      Caption = '&Voltar'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnVoltarClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F5555000555555505555577755555557555}
      NumGlyphs = 2
    end
    object btnFechar: TBitBtn
      Left = 280
      Top = 7
      Width = 89
      Height = 26
      Hint = ' Fecha Tela de Cadastro '
      Caption = '&Fechar'
      ModalResult = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnFecharClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
  end
  object pnlCabecalho: TPanel
    Left = 0
    Top = 0
    Width = 458
    Height = 41
    Align = alTop
    BevelInner = bvLowered
    BevelWidth = 2
    Caption = 'Altera'#231#227'o de Pre'#231'os On-line'
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentBackground = False
    ParentFont = False
    TabOrder = 2
  end
  object spCadastrarAlteracaoPreco: TZStoredProc
    Connection = DtmGeral.ZConexaoBanco
    Params = <
      item
        DataType = ftSmallint
        Name = 'PRA_IDFEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PRA_IDFPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PRA_USUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PRA_PRECONOVO'
        ParamType = ptInput
      end>
    StoredProcName = 'SP_CADASTRAR_ALTERACAO_PRECO'
    Left = 344
    Top = 49
    ParamData = <
      item
        DataType = ftSmallint
        Name = 'PRA_IDFEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PRA_IDFPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PRA_USUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PRA_PRECONOVO'
        ParamType = ptInput
      end>
  end
end
